home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus 1995 #5 & #6
/
Amiga Plus CD - 1995 - No. 5 and 6.iso
/
pd
/
serien
/
purity
/
nr.46
/
pcq-crt
/
crtdemo.p
< prev
next >
Wrap
Text File
|
1995-04-18
|
768b
|
53 lines
Program CrtDemo;
{$I "Include:Utils/Crt.i"}
PROCEDURE DrawShellGfx;
VAR i, z, s : Integer;
Begin
GetConSize(z,s);
ClrScr;
CursorOff;
SetTextStyle(TS_PLAIN,1,2);
TxtLine(1,1,s,z,' ');
TxtLine(s,1,1,z,' ');
SetTextStyle(TS_BOLD,1,0);
Locate(z/2,s-13);
Write("Zeilen: ",z);
Locate(z/2+1,s-13);
Write("Spalten: ",s);
SetTextStyle(TS_PLAIN,1,0);
For i:=1 to z do
Begin
Locate(i,1);
Write(i);
end;
SetTextStyle(TS_PLAIN,1,3);
HorizTxtLine(s/2-8,2,16,' ');
TxtLine(s/2-8,2,s/2,10,' ');
TxtLine(s/2,10,s/2+8,2,' ');
SetTextStyle(TS_PLAIN,1,1);
TxtRectFill(4,z/2-4,10,8,' ');
SetTextStyle(TS_BOLD,2,3);
Locate(z-3,s/2-8);
Write("Press <RETURN>");
SetTextStyle(TS_PLAIN,0,0);
end;
Begin
DrawShellGfx;
Readln;
ResetConsole;
end.